      PROGRAM AT_GCM
C--
C--   Main program : AT_GCM
C--
C--   Modified common blocks: DATE1
C--
C--   Modified by Daisuke Hotta (DH) for use with Lorenz N-cycle
C--   Lorenz N-cycle is a two-time level scheme, so special treatment   
C--   for the first step is not necessary.
C--                                                      2012/10/01 DH
C--   This main program is for code-validation.
C--   It integrates the model for only four steps.       2012/11/28 DH
C--
      include "atparam.h"
      include "atparam1.h"

      include "com_tsteps.h"
      include "com_date.h"

      PRINT *, ' Hallo from AT_GCM'

C--   1. Initialization of all model constants and variables 

      CALL INIALL

C--   2. Integrate four steps using Lorenz N-cycle
      DO ISTEP=0,3
        CALL STEP_NCYC(ISTEP, DELT, ALPH)
      ENDDO

C--  3. Output to file
      CALL IOGRID(4)

      STOP
      END
